home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8609.d64 / demo 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  88 lines
  1. 1000 REM*******************************
  2. 1010 REM******                   ******
  3. 1020 REM***      HIRES COLOSSAL     ***
  4. 1030 REM***       -- DEMO --        ***
  5. 1040 REM******                   ******
  6. 1050 REM*******************************
  7. 1060 REM
  8. 1070 REM    (C) 1/86 BY
  9. 1080 REM                F.GRAEF
  10. 1090 REM                6831 PLANKSTADT
  11. 1100 REM
  12. 1110 :
  13. 1120 :
  14. 1130 REM*** RAM-ENDE HERUNTERSETZEN ***
  15. 1140 :
  16. 1150 SYS 52225,0
  17. 1160 CLR
  18. 1170 :
  19. 1180 :
  20. 1190 REM***** ALLE SCHIRME RICHTEN ****
  21. 1200 :
  22. 1210 FOR I=1 TO 4
  23. 1220 :         SYS 52225,1,I
  24. 1230 :         d 0,12
  25. 1240 :do I*20,I*20,""+STR$(I),1,1,12
  26. 1250 :    dB I*20+15,I*20+3,10,10,1
  27. 1260 d10,I*10+100,I*20+10,I*10+110,1
  28. 1270 :         d 0,199,319,0,1
  29. 1280 :   d 120+I*10,0,120+I*10,199,1
  30. 1290 :         df 1
  31. 1300 NEXT I
  32. 1310 :
  33. 1320 :
  34. 1330 REM***** ALLE SCHIRME ZEIGEN *****
  35. 1340 :
  36. 1350 FOR I=1 TO 2
  37. 1360 :       FOR X=1 TO 4
  38. 1370 :            SYS 52225,1,X
  39. 1380 :            df1
  40. 1390 :       NEXT X
  41. 1400 NEXT I
  42. 1410 :
  43. 1420 :
  44. 1430 REM**** ALLE SCHIRME SAVEN *******
  45. 1440 :
  46. 1450 FOR I=1 TO 4
  47. 1460 :        SYS 52225,1,I
  48. 1470 SYS52225,3,1,8,2,"S"+STR$(I)+",P,W"
  49. 1480 NEXT I
  50. 1490 :
  51. 1500 :
  52. 1510 REM SCHIRME UEBEREINANDER BLENDEN
  53. 1520 :
  54. 1530 SYS 52225,1,1
  55. 1540 FOR I=2 TO 4
  56. 1550 :         SYS 52225,2,I
  57. 1560 NEXT I
  58. 1570 df 4
  59. 1580 :
  60. 1590 :
  61. 1600 REM*** ALLE SCHIRME LOESCHEN *****
  62. 1610 :
  63. 1620 FOR I=1 TO 4
  64. 1630 :        SYS 52225,1,I
  65. 1640 :        d 0,12
  66. 1650 NEXT I
  67. 1660 :
  68. 1670 :
  69. 1680 REM****** SCHIRME LADEN **********
  70. 1690 :
  71. 1700 FOR I=1 TO 4
  72. 1710 :        SYS 52225,1,I
  73. 1720 :        SYS 52225,4,"S"+STR$(I),8
  74. 1730 NEXT I
  75. 1740 :
  76. 1750 :
  77. 1760 REM*** ALLE SCHIRME ZEIGEN *******
  78. 1770 :
  79. 1780 FOR I=1 TO 2
  80. 1790 :       FOR X=1 TO 4
  81. 1800 :            SYS 52225,1,X
  82. 1810 :            df1
  83. 1820 :       NEXT X
  84. 1830 NEXT I
  85. 1840 :
  86. 1850 :
  87. 1860 REM PROGRAMMENDE
  88.